home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / pascal / janus.exe / DLGTEST.RC < prev    next >
Text File  |  1993-02-14  |  5KB  |  109 lines
  1.  
  2.  
  3. aMenu MENU 
  4. BEGIN
  5.     POPUP "&File"
  6.     BEGIN
  7.         MENUITEM "&Switch to non-MDI mode", $100
  8.         MENUITEM "&MDI_AllChildStyles", $101
  9.         MENUITEM SEPARATOR
  10.                 MENUITEM "select &Printer", $110
  11.         MENUITEM SEPARATOR
  12.         MENUITEM "E&xit", $5F14
  13.     END
  14.  
  15.     POPUP "&Modeless"
  16.     BEGIN
  17.         MENUITEM "&Dialog from standard resource", $200+0
  18.         MENUITEM "&BorDlg from standard resource", $200+1
  19.         MENUITEM SEPARATOR
  20.         MENUITEM "D&ialog from BorDlg resource", $200+2
  21.         MENUITEM "B&orDlg from BorDlg resource", $200+3
  22.         MENUITEM SEPARATOR
  23.         MENUITEM "OD &Listbox and MDI_SAllChildStyles", $200+4
  24.     END
  25.  
  26.     POPUP "Mo&dal"
  27.     BEGIN
  28.         MENUITEM "&Dialog from standard resource", $300+0
  29.         MENUITEM "&BorDlg from standard resource", $300+1
  30.         MENUITEM SEPARATOR
  31.         MENUITEM "D&ialog from BorDlg resource", $300+2
  32.         MENUITEM "B&orDlg from BorDlg resource", $300+3
  33.         MENUITEM SEPARATOR
  34.         MENUITEM "OD &Listbox and MDI_SAllChildStyles", $300+4
  35.     END
  36.  
  37.     POPUP "&Window"
  38.     BEGIN
  39.         MENUITEM "&Cascade", $5F11
  40.         MENUITEM "&Tile", $5F10
  41.         MENUITEM "Arrange &Icons", $5F0F
  42.         MENUITEM "Close &all", $5F12
  43.         MENUITEM SEPARATOR
  44.         MENUITEM "&About...", $1000
  45.     END
  46.  
  47. END
  48.  
  49. aBorDlg DIALOG 22, 24, 156, 108
  50. STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
  51. CLASS "BorDlgDescendant"
  52. CAPTION "a BorDlg - descendant"
  53. MENU aMenu
  54. FONT 8, "Helv"
  55. BEGIN
  56.     CONTROL "a CheckBox", 201, "BorCheck", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 12, 20, 54, 10
  57.     CONTROL "Radio Button 1", 202, "BorRadio", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 12, 33, 68, 10
  58.     CONTROL "Radio Button 2", 203, "BorRadio", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE, 12, 46, 66, 10
  59.     CONTROL "", -1, "BorShade", 2 | WS_CHILD | WS_VISIBLE, 0, 64, 156, 1
  60.     CONTROL "a GroupBox", 204, "BorShade", BSS_GROUP | WS_CHILD | WS_VISIBLE, 7, 6, 86, 51
  61.     CONTROL "", 206, "BorShade", 3 | WS_CHILD | WS_VISIBLE, 103, 0, 1, 65
  62.     LTEXT "This dialog was stored in resource as class 'BorDlgDescendant' if there is no BWCC.DLL present, you should see a standard dialog", -1, 5, 68, 146, 34
  63.     CONTROL "&Ok", 1, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 113, 36, 36, 24
  64.     CONTROL "&Cancel", 2, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 113, 7, 36, 24
  65. END
  66.  
  67. aDialog DIALOG 18, 18, 156, 108
  68. STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
  69. CAPTION "a standard dialog"
  70. FONT 8, "Helv"
  71. BEGIN
  72.     CONTROL "a CheckBox", 201, "BUTTON", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 12, 20, 54, 10
  73.     CONTROL "Radio Button 1", 202, "BUTTON", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 12, 33, 68, 10
  74.     CONTROL "Radio Button 2", 203, "BUTTON", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 12, 46, 66, 10
  75.     LTEXT "This dialog was stored in resource as a normal dialog; if BWCC.DLL is present, you might see a BorDlg!", -1, 5, 68, 146, 34
  76.     CONTROL "a GroupBox", 204, "button", BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 5, 8, 79, 54
  77.     PUSHBUTTON "&Ok", 1, 113, 33, 36, 24, WS_CHILD | WS_VISIBLE | WS_TABSTOP
  78.     PUSHBUTTON "&Cancel", 2, 113, 8, 36, 24, WS_CHILD | WS_VISIBLE | WS_TABSTOP
  79. END
  80.  
  81. unusual DIALOG 8, 16, 205, 136
  82. STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION
  83. CLASS "BorDlgUnusual"
  84. CAPTION "an unusual MDI window"
  85. FONT 8, "Helv"
  86. BEGIN
  87.     CONTROL "", 10, "listbox", LBS_OWNERDRAWFIXED | LBS_NOTIFY | LBS_HASSTRINGS | LBS_USETABSTOPS | WS_BORDER | WS_VSCROLL | WS_CHILD, 7, 3, 146, 71
  88.     CONTROL "&Ok", 1, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 163, 95, 36, 24
  89.     CONTROL "", -1, "BorShade", BSS_HDIP | WS_CHILD | WS_VISIBLE, 0, 76, 159, 1
  90.     LTEXT "This dialog has an unusual style if created under MDI/Win 3.1!", -1, 4, 108, 147, 19, WS_CHILD | WS_VISIBLE | WS_GROUP
  91.     CONTROL "", -1, "BorShade", BSS_VDIP | WS_CHILD | WS_VISIBLE, 158, 0, 1, 136
  92. END
  93.  
  94. About DIALOG 12, 27, 155, 112
  95. STYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME
  96. CLASS "BorDlgAbout"
  97. CAPTION "About DlgTest"
  98. FONT 8, "Helv"
  99. BEGIN
  100.     LTEXT "The DlgTest program demonstrates the use\nof tDialogWindow and tJanusDialogWindow.", -1, 4, 4, 147, 20, WS_CHILD | WS_VISIBLE | WS_GROUP
  101.     CONTROL "", 101, "BorShade", 2 | WS_CHILD | WS_VISIBLE, -2, 70, 158, 2
  102.     CTEXT "(c) 1992 by Peter Sawatzki\nCIS 100031,3002", -1, 4, 47, 147, 20, WS_CHILD | WS_VISIBLE | WS_GROUP
  103.     LTEXT "Both support modeless and modal dialogs\nas well as MDI and tScroller handling!", -1, 4, 24, 147, 20, WS_CHILD | WS_VISIBLE | WS_GROUP
  104.     CONTROL "&Ok", 1, "BorBtn", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 59, 81, 36, 24
  105. END
  106.  
  107.  
  108.  
  109.